home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1987 September / Ahoy_Magazine_87-09_1987_Double_L_Side_A.d64 / Disk Check (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  620b  |  16 lines
  1. 1 clr:a=53280:pokea,.:pokea+1,.:print"[147]disk error checker:":print"1. che";
  2. 2 print"ck whole disk":print"2. quick check":print"3. check 1 track"
  3. 3 print"4. exit/end":input"your choice";a:ifa<1ora>4then1
  4. 4 print"insert disk to check.":wait198,1:print"checking...":ifa=4thenend
  5. 5 open15,8,15:print#15,"m-w";chr$(106)chr$(0)chr$(1)chr$(133):onagosub7,8,9
  6. 6 close15:poke198,0:print"error checking complete.":wait198,1:goto1
  7. 7 fort=1to35:gosub11:fors=0tols:gosub13:next:next:return
  8. 8 fort=1to35:s=0:gosub13:next:return
  9. 9 poke198,0:input"which track (1-35)";t:ift<1ort>35then9
  10. 10 gosub11:fors=0tols:gosub13:next:return
  11. 11 ls=16:ift<31thenls=17:ift<25thenls=18:ift<18thenls=20
  12. 12 return
  13. 13 open2,8,2,"#":print#15,"u1,2"0;t,s:input#15,e,e$,t$,s$
  14. 14 ife<>0thenprinte"[157],"e$","t$","s$
  15. 15 close2:return
  16.